gc()
##          used (Mb) gc trigger (Mb) max used (Mb)
## Ncells 396322 21.2     813024 43.5   638648 34.2
## Vcells 717171  5.5    8388608 64.0  1632921 12.5
rm(list=ls())
options(scipen = 999)

setwd("C:/R Studio Files/POLS6394-Machine-Learning/Problem Set 4")

#4

#a

alt text here


#b

plot(NA, NA, type = "n", xlim = c(-3, 3), ylim = c(-3, 3), xlab = "X1", ylab = "X2")
lines(x = c(-3, 3), y = c(2, 2))
lines(x = c(-3, 3), y = c(1, 1))
lines(x = c(0, 0), y = c(1, 2))
lines(x = c(1, 1), y = c(-3, 1))
text(x = -1/2, y = -1, labels = -1.8)
text(x = 1.5, y = -1, labels = 0.63)
text(x = 0, y = 2.5, labels = 2.49)
text(x = -1, y = 1.5, labels = -1.06)
text(x = 1, y = 1.5, labels = 0.21)